home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side A).do / PAL.12801.POSPISIL.FEB.83.A.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  29 lines
  1. 10  HOME : VTAB 23
  2. 20  PRINT "I AM WRITING A BINARY GAME (MY FIRST)": CALL  -912
  3. 25  GOSUB 200
  4. 30  PRINT "AND AM HAVING TROUBLE WITH THE SCORING": CALL  -912
  5. 35  GOSUB 200
  6. 40  PRINT "ROUTINE.  I NEED ONE THAT INCREMENTS": CALL  -912
  7. 45  GOSUB 200
  8. 50  PRINT "A CERTAIN AMOUNT OF POINTS EACH TIME IT": CALL  -912
  9. 55  GOSUB 200
  10. 60  PRINT "(THE SUBROUTINE) IS JSR'D TO.  I WOULD": CALL  -912
  11. 65  GOSUB 200
  12. 70  PRINT "GREATLY APPRECIATE ANYONE SENDING ME": CALL  -912
  13. 75  GOSUB 200
  14. 80  PRINT "INFORMATION ON THE BEST WAY OF DOING": CALL  -912
  15. 85  GOSUB 200
  16. 90  PRINT "THIS!!!     THANK YOU!": CALL  -912
  17. 95  GOSUB 200
  18. 100  PRINT : PRINT  TAB( 12)"JOSEPH POSPISIL": CALL  -912
  19. 105  GOSUB 200
  20. 110  PRINT  TAB( 11)"3 GRIFFING PLACE": CALL  -912
  21. 115  GOSUB 200
  22. 120  PRINT  TAB( 8)"GLENS FALLS, NY  12801": CALL  -912
  23. 130  GOSUB 200
  24. 140  GET A$
  25. 150  FOR TIMES = 1 TO 23: CALL  -912: NEXT 
  26. 199  PRINT  CHR$(4)"RUN PAL.MENU": GOTO 199
  27. 200  FOR BZ = 1 TO 25:BUZZ =  PEEK( -16336): NEXT BZ
  28. 210  FOR PAUSE = 1 TO 50: NEXT 
  29. 220  RETURN